home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / DevGallery / Headbone / Source / DRESSVEL.DIR / 00100.ls < prev    next >
Encoding:
Text File  |  1996-04-30  |  188 b   |  8 lines
  1. on mouseDown
  2.   set vSprite to the clickOn
  3.   set vOrigH to the locH of sprite vSprite
  4.   set vOrigV to the locV of sprite vSprite
  5.   dragSprite(vSprite)
  6.   snapTo(vSprite, vOrigH, vOrigV)
  7. end
  8.